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cccccccc 000000 BBBBBBBB ccecccccce «CVV VV TTTTTTTTTT RRRRRRRR QQgQaQqQ PPPPPPPP 
cccccccc 000000 BBB8BBBB cecccccc =~ VV TTTTTTTTTT RRRRRRRR QaqaQaa PPPPPPPP 

cc 00 00 88 BB CC VV VV TT RR RR QQ QQ PP 

cc 00 00 88 BB CC VV VV TT RR RR QQ QQ PP PP 

cc 00 00 8B BB CC VV VV TT RR RR QQ QQ PP PP 

cc 00 00 6B BB CC VV VV TT RR RR QQ QQ PP 

cc 00 00 88888888 cc VV VV TT RRRRRRRR QQ QQ PPPPPPPP 

cc 00 00 88888688 cc VV VV TT RRRRRRRR QQ QQ PPPPPPPP 

cc 00 0O 88 BB CC VV VV TT RR RR QQ QQ QQ PP 

cc 00 00 BB CC VV Vv TT RR RR QQ QQ QQ PP 

cc 00 00 68 BB CC VV VV TT RR RR Qa QQ PP cece 

cc 00 00 688 BB CC vv TT RR RR QQ QQ PP coe 
cccccccc 000000 BBBBBBBB ccccccce VV TT RR RR QQqQqQg QQ PP cove 
cccccccc 000000 BBBBBBBB ccccccce VV TT RR RR QQQ0Q QQ PP cece 

LL IIIIII SSSSSSSS 
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LL I] SS 

LL II SS 
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COBSCVTROP_R9 COBOL Convert Rounded Quad to Packed iF a aad $3:3 +13 eg then Macro V04-00 Page 1 
1-007 6-SEP=-1984 10:45:5 COBRTL.SRCIJCOBCVTROP.MAR; 1 (1) 


0 of 1 -TITLE COBSCVTRQP_R9 COBOL Convert Rounded Quad to Packed 

8 0 ¢ -IDENT /1-007/ 3; File: COBCVTROP.MAR 

000 

0900 5 : RATATAT AAAARAARAAAAATARARAARAAAARAAARAAAARAARAARARAARAARAAARAARAAEAEE 
3;* 

0000 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

9900 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 

4 10 ‘* ALL RIGHTS RESERVED. * 
P4 ae 

0000 11 ;* THIS hon IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt he * 

0000 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

0000 15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR THE * 

0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

4444 16 3* TRANSFERRED. * 
37* * 

0000 18 ;* THE cote IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

5000 $9 o CORPORATION. * 
e ® 

0000 $$ :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 7 

0000 25 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

0000 24 3 * 

0000 25 :* * 

0000 26 eecedeceneetniaiciaieaeacaleareaeaaiataan tated ironies) sania eee 

0000 eo? : 

0000 28 ; FACILITY: COBOL TYPE CONVERSION 

0000 $3 34 

0000 0 ; ABSTRACT: 

0000 31 3 This module contains the routine which converts signed quadwords 

0000 3 : to packed with rounding. 

0000 aS 3 

0000 34; 

0000 35 ;-- 

0000 36 ; 

0000 3 3; VERSION: 1 

0000 es 

0000 39 ; HISTORY: 

0000 40 ; 

0000 41 ; AUTHOR: 

0000 $g ; John Sauter, 29-DEC-78 

0000 43; 

0000 44 ; MODIFIED BY: 

0000 45 ; 

0000 46 ; 

0000 47; 
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BS 11-JAN-1979 
MLJ 1 qaeretore 


Page (3) 


8 1 
ert Rounded Quad to Packed 17360-1388 $3249: 13 pales Macro v04-00 
SEP-1984 43:5 V 


OBSCVTROP_RI COBOL Conv - Page 
itty DECLARATIONS é- (OORT SAEICOMCVTROP.MAR:1  o2° (3) 
p $ -SBTTL DECLARATIONS 
64 : 
0 65 ; INCLUDE FILES: 
000 66 ; 
000 6 
000 68 ; 
000 9 ; EXTERNAL SYMBOLS: 
0000 9 3 NONE 
0000 71; 
0000 7 
4444 73; 
00 74 ; MACROS: 
0000 7? 3 NONE 
0000 76 3 
0000 77 
0000 78 ; 
0000 79 ; PSECT DECLARATIONS: 
re H+ -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 Hf 3 
0000 83 ; EQUATED SYMBOLS: 
0000 84 ; NONE | 
0000 85 ; 
0000 86 
0000 87; 
0000 88 ; OWN STORAGE: 
0000 89 ; 
0000 90 5+ ? . 
0000 91 ; The trig yg has the value 2**32. It is used for scaling 
a8 : 3; the high 32 bits and for compensating for unsigned arithmetic. 
6C 29 67 49 29 04 0000 94 BIAS: -PACKED 4294967296 3 20232 
0000000A B208 4 BIAS_DIGITS=10 | 


; COMPLETION CODES: 
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COBSCVTROP_RO COBOL Convert Rounded Quad to Packed 15-SEP-1984 23:42:1 AX/VMS Macro v04-00 
itt COBSCVTROP RS Fae 93:28:83 LCOBRTL. SRCICOBCVTROP.MAR: 1 
006 .SBTTL COBSCVTROP_RO 7 
006 p++ 
444 ; FUNCTIONAL DESCRIPTION: 
Bebe ; Converts a 64-bit (quadword) integer to packed with rounding. 
9006 ; CALLING SEQUENCE: 
Babe 4 JSB COBSCVTROP_RO (scale.rl.v, src.rq.r, dstlen.rl.v, dst.wp.r) 
906 : Arguments are passed in R6, R7, R8& and R9. 
9006 > INPUT PARAMETERS: 
0006 : SCALE.rl.v The power of ten by which the internal 
0006 3 ropeyeratat sen of the source must be 
0006 : multiplied to scale the same as the 
0006 : internal representation of the dest. 
0006 : eet fa -f The number to be converted 
94 : DSTLEN.rl.v The number of digits in the destination 
0006 > IMPLICIT INPUTS: 
$44 : ALL of the trap bits in the PSL are assumed off. 
9006 : OUTPUT PARAMETERS: 
0006 ; DST.wp.r The place to store the converted number 
0006 > IMPLICIT OUTPUTS: 
0006 ; 
0006 : NONE 
0006 ; 


i= 

So 

So 

oa 
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0006 NONE 
0006 : 
0006 ; SIDE EFFECTS: 
0006 
0006 Destroys registers RO through R9. 
0006 
0006 ;=- 
0006 
0006 COBSCVTRQP_R9:: 
SE 14 (C2 i SUBL2 #30. SP : Allocate temp space 
06 A? «667)06—CO01 iE OEE 09 CMPV #31,#1,(R7) ,4(R7) ; Is number in Longword range? 
13. 12 QOOF BNEQ 11$ ’ ; Br if not to do slower code 
6— OA F9 0011 CVTILP) = (R7) , #10, (SP) ; Convert low order Longword 
69 58 O05 6€ OA S56 FB 0015 ASHP R6, #10, (SP), #5,R8,(R9) : Scale to destination 
01C 3 also clears RO) 
02 1D O0IC BVS 10$ : Br if overflowed 
50 06 OO1E INCL RO : Indicate success, RO = 1 
fee Te. 0 ! 10$ ADDL2 #20,SP ; Deallocate temp space 
05 00 ? RSB ; Return 
3¢@ 
6 4 ; Come here if the input number is not in longword range. Sum the 
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1-00 COBSCVTROP_R 66-SEP-1984 10:45:5 COBRTL.SRCIJCOBCVTROP.MAR; 1 (4) 
024 155 ; converted high order longword, multiplied by 2**32, and the converted 
0 128 ; low order lLongword, considered as an unsigned number. 
6— OA O04 A? FY 6 4 158 118: CVTLP 3 4(R7),#10, (SP) ; Convert high order Longword 
13. 66 OA D3 AF OA 25 00 9 159 MULP #BIAS_DIGITS,BIAS,#10, (SP) ,#19,8(SP) 
09 ; 160 ; Multiply by 2**32 
6— OA 67 F9 00 161 CVTLP = (R7), #10, (SP) ; Convert low order lLongword 
06 18 8 6 166 BGEQ ; Br if nonnegative 
6— OA (COAF OA 2 038 16 ADDP4 #BIAS_DIGITS,BIAS,#10, (SP) 
O3E 164 ; Correct for signed conversion 
08 at 3 $f A 20 br 165 12$: ADDP4 = #10,(SP) ,#19,8(SP) ; Sum low and high order parts 
69 58 O05 63 1 6 FB 0044 166 ASHP R6,419,(R3),45,RB,(R9) : Scale to destination 

0048 167 5 also clears RO) 

02 1D 0048 168 BVS 13$ ; Br if overflowed 

50 D6 004D 169 INCL RO : Indicate success, RO = 1 

SE 14 CO OO4F 170 138: ADDL2 #20,SP ; Deallocate temp space 
05 £0) 171 RSB ; Return 

05 76 3 
0053 +17 ~ END 
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COBSCVTROP_RI 15-SEP 
Symbol tabTe 6-SEP 
BIAS - 90000000 R 01 
BIAS_DIGITS = QOOOD00A 
COBSCVTROP_RO 0000006 RG 01 
tema anan eSeeecmeecoe 
: Psect synopsis ! 
eo + 
PSECT name Allocation PSECT No. Attributes 
le Ss 00000000 <( :} 00 ( 0.) NOPIC uUSR (CO 
_COBSCODE 00000053 (« 83.) O01 ¢ 1.) PIC uUSR CO 
toamocoewoeaenmae eemea sow esas + 
: Performance indicators H 
| Phase Page faults CPU Time Elapsed Time 
] memmm 0 t—~s—s—s—s—sisi‘“‘“ él li ec ce -eecececeoeolllLlLlmlmlmlmlC OOO OOOO i i @0 0 p66 ee ere ewe 
Initialization 29 00:00:00.05 00:00:01.66 
C processing 117 00:00:00.32 00:00:02.40 
Pass 69 obs So SF 44 00:00:01.49 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 48 00:00:00.22 00:00:02.32 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
| Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 269 00:00:00.88 00:00:07.90 
ages. 


roe wereseg set Limit was 750 
2204 bytes (5 pages) of virtua 
There were 10 


| memory were used to buffer the intermediate cod 
pages of symbol table space allocated to hold 3 non-local and 4 | 
175 source Lines, were read in Pass 1, producing 8 object records in Pass 


0 pages of virtual memory were used to define 0 macros. 
F 
Macro library name 


"$255$DUA28:(SYSLIBJSTARLET.MLB; 2 
O GETS were required to define 0 macros. 


geese note noe ee ease tee ee woe + 
! Macro Library statistics ! 
+ 


There were no errors, warnings or information messages. 
| MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$: COBCVTRQP/OBJ=0BJ$ 


; 
' 
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CL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
N CL SHR 


EXE RD NOWRT NOVEC LONG 
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